home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 1 Issue 2
/
PDCD-1 - Issue 02.iso
/
_utilities
/
utilities
/
004
/
gstobject
/
message
/
Example
/
Message
(
.txt
)
< prev
next >
Wrap
RISC OS BBC BASIC V Source
|
1994-09-11
|
638b
|
31 lines
Author: George Taylor, george@tardis.ed.ac.uk
_AssembleRequests_message
b,p,P%,requestBlock,pairsStart,pairsEnd,branchStart,branchEnd
b 256
p=0
[ OPT p
.requestBlock
; Adhesive request block
EQUD 148
EQUD 0
EQUD 0
EQUD 0
# EQUD (branchEnd-branchStart)/4
! EQUD (pairsEnd-pairsStart)/8
; pairs themselves
.pairsStart
EQUD 0
EQUD 2
.pairsEnd
; branch table
.branchStart
.message_Open%
MOVS PC,R14
.message_Close%
MOVS PC,R14
.message_Lookup%
MOVS PC,R14
.branchEnd
EQUD 0
= requestBlock